home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Elan performer v2.0.adf / Recorder / play.rexx < prev    next >
OS/2 REXX Batch file  |  1978-10-16  |  1KB  |  48 lines
  1. /* Rev 7.26.90 */
  2. /* PLAY.REXX <FileName> */
  3. /* Plays Back keystrokes To Performer Recorded By RECORD.REXX*/
  4.  
  5. x = RemLib("rexxsupport.library")
  6. x = RemLib("rexxarplib.library")
  7. If addlib("rexxsupport.library",0,-30,0) then Do
  8.     ARG FileName
  9.     If FileName = '' then do
  10.         Say ""
  11.         Say 'Enter directory and name of script to play back:'
  12.         PULL FileName
  13.     end
  14.     If Open('RecFile',FileName,'R') then Do
  15.         x = Readln('RecFile')
  16.         x = Readln('RecFile')
  17.         PicEnv = Readln('RecFile')
  18.         address command
  19.         "run /Player" PicEnv
  20.         Say ""
  21.         Say "Loading Elan Player 2.0 with" PicEnv "..."
  22.         do for 60 while ~show('Ports','PERFORMER')
  23.                call delay 25  /* 0.5 sec */
  24.            end
  25.             call delay 100
  26.         Address PERFORMER
  27.         Call Time('R')
  28.         Do While (~ EOF('RecFile'))
  29.             FileRec = Readln('RecFile')
  30.             KeyNum = SUBWORD(FileRec,1,1)
  31.             KeyTime = SUBWORD(FileRec,2,1)
  32.             DO WHILE (TIME('E') < KeyTime)
  33.                 x = (KeyTime-Time('E'))*50-2
  34.                 If x>1 & 0 ~= (x // 10) then Call DELAY(x)
  35.             END
  36.             If KeyNum ~= "" then KEY KeyNum
  37.         end    
  38. /*            QUIT    Remove Comment to Exit Performer at End of Playback */
  39.     end
  40.     else say "Can't Open file:" FileName
  41. end
  42. else say "The Arexx RexxSupport.Library must be installed in libs directory."
  43. x = RemLib("rexxsupport.library")
  44. say ""
  45. say "Type endcli to quit."
  46. say ""
  47. exit(0)
  48.